Hide On : Cls 0 : Pen 1 : Paper 0 : Curs Off : Flash Off
Locate 0,0 : Print "IF YOU WANT TO READ THE DOCUMENTATION "
Print "FILE (ALWAYS A GOOD IDEA)"
Print
Print "BOOT UP YOUR AMIGA WITH WORKBENCH"
Print "LOAD THE RACE RATER DISK AND CLICK"
Print "ON THE READ ME ICON."
Print
Print
Print "PRESS SPACE BAR TO START THE PROGRAM "
Do
While X$="" : X$=Inkey$ : Wend
Exit If Scancode=64 : X$=""
Loop
Proc RATING
Procedure RATING
COMMENCE:
Load Iff "SCREENS/RACE MEETING TYPE SCREEN",0
Load Iff "SCREENS/RACE MEETINGS SCREEN",1
Load Iff "SCREENS/RACE TIME SCREEN",2
Load Iff "SCREENS/BLANK ENTRY SCREEN",3
Load Iff "SCREENS/PRIZE MONEY SCREEN",4
Get Disc Fonts : Set Font 1 : Set Text 2
Dim NAME$(39),ARATING(39),BRATING(39),ARATING#(39),BRATING#(39)
FIRST_SCREEN:
Screen 0 : Show On : Screen To Front 0
Do
Reserve Zone : Reserve Zone 2
Set Zone 1,X Screen(256),Y Screen(141) To X Screen(320),Y Screen(167)
Set Zone 2,X Screen(256),Y Screen(221) To X Screen(320),Y Screen(247)
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1 Then Screen 1 : MEETINGTYPE$="FR" : Goto FLAT_RACE_MEETINGS
If M=2 Then Screen 1 : MEETINGTYPE$="NH" : Goto NH_RACE_MEETINGS
Exit If M=1 or M=2
Loop
FLAT_RACE_MEETINGS:
Limit Mouse : Ink 0,2 : Show On : Curs Off
Cls 5,X Screen(130),Y Screen(117) To X Screen(446),Y Screen(247)
Do
Restore FLAT_RACE_DATA
Reserve Zone : Reserve Zone 34
For X=1 To 9
X$=Str$(X) : Read X$
Cls 2,X Screen(130),Y Screen(102+X*15) To X Screen(200),Y Screen(112+X*15)
Text X Screen(132),Y Screen(110+X*15),X$
Set Zone X,X Screen(130),Y Screen(102+X*15) To X Screen(200),Y Screen(112+X*15)
Next X
For X=10 To 18
X$=Str$(X) : Read X$
Cls 2,X Screen(212),Y Screen(102+(X-9)*15) To X Screen(282),Y Screen(112+(X-9)*15)
Text X Screen(214),Y Screen(110+(X-9)*15),X$
Set Zone X,X Screen(212),Y Screen(102+(X-9)*15) To X Screen(282),Y Screen(112+(X-9)*15)
Next X
For X=19 To 27
X$=Str$(X) : Read X$
Cls 2,X Screen(294),Y Screen(102+(X-18)*15) To X Screen(364),Y Screen(112+(X-18)*15)
Text X Screen(296),Y Screen(110+(X-18)*15),X$
Set Zone X,X Screen(294),Y Screen(102+(X-18)*15) To X Screen(364),Y Screen(112+(X-18)*15)
Next X
For X=28 To 34
X$=Str$(X) : Read X$
Cls 2,X Screen(376),Y Screen(102+(X-27)*15) To X Screen(446),Y Screen(112+(X-27)*15)
Text X Screen(378),Y Screen(110+(X-27)*15),X$
Set Zone X,X Screen(376),Y Screen(102+(X-27)*15) To X Screen(446),Y Screen(112+(X-27)*15)
Next X
Screen To Front 1 : Restore FLAT_RACE_DATA
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<35 Then Bell 50 Else Bell 10
For X=1 To M
X$=Str$(X) : Read X$
Next X
If M>0 and M<35 Then Ink 0,6
If M>0 and M<10 Then Cls 6,X Screen(130),Y Screen(102+M*15) To X Screen(200),Y Screen(112+M*15) : Text X Screen(132),Y Screen(110+M*15),X$
If M>9 and M<19 Then Cls 6,X Screen(212),Y Screen(102+(M-9)*15) To X Screen(282),Y Screen(112+(M-9)*15) : Text X Screen(214),Y Screen(110+(M-9)*15),X$
If M>18 and M<28 Then Cls 6,X Screen(294),Y Screen(102+(M-18)*15) To X Screen(364),Y Screen(112+(M-18)*15) : Text X Screen(296),Y Screen(110+(M-18)*15),X$
If M>27 and M<35 Then Cls 6,X Screen(376),Y Screen(102+(M-27)*15) To X Screen(446),Y Screen(112+(M-27)*15) : Text X Screen(378),Y Screen(110+(M-27)*15),X$
Wait 10 : MEETING$=X$
Exit If M>0 and M<35
Loop
Do
Reserve Zone : Reserve Zone 2
Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1 Then Screen 2 : Goto RACE_TIMES
If M=2 Then Goto FLAT_RACE_MEETINGS
Exit If M=1 or M=2
Loop
NH_RACE_MEETINGS:
Limit Mouse : Ink 0,2 : Show On : Curs Off
Cls 5,X Screen(130),Y Screen(117) To X Screen(446),Y Screen(247)
Do
Restore NH_RACE_DATA
Reserve Zone : Reserve Zone 44
For X=1 To 9
X$=Str$(X) : Read X$
Cls 2,X Screen(130),Y Screen(102+X*15) To X Screen(186),Y Screen(112+X*15)
Text X Screen(132),Y Screen(110+X*15),X$
Set Zone X,X Screen(130),Y Screen(102+X*15) To X Screen(186),Y Screen(112+X*15)
Next X
For X=10 To 18
X$=Str$(X) : Read X$
Cls 2,X Screen(195),Y Screen(102+(X-9)*15) To X Screen(251),Y Screen(112+(X-9)*15)
Text X Screen(197),Y Screen(110+(X-9)*15),X$
Set Zone X,X Screen(195),Y Screen(102+(X-9)*15) To X Screen(251),Y Screen(112+(X-9)*15)
Next X
For X=19 To 27
X$=Str$(X) : Read X$
Cls 2,X Screen(260),Y Screen(102+(X-18)*15) To X Screen(316),Y Screen(112+(X-18)*15)
Text X Screen(262),Y Screen(110+(X-18)*15),X$
Set Zone X,X Screen(260),Y Screen(102+(X-18)*15) To X Screen(316),Y Screen(112+(X-18)*15)
Next X
For X=28 To 36
X$=Str$(X) : Read X$
Cls 2,X Screen(325),Y Screen(102+(X-27)*15) To X Screen(381),Y Screen(112+(X-27)*15)
Text X Screen(327),Y Screen(110+(X-27)*15),X$
Set Zone X,X Screen(325),Y Screen(102+(X-27)*15) To X Screen(381),Y Screen(112+(X-27)*15)
Next X
For X=37 To 44
X$=Str$(X) : Read X$
Cls 2,X Screen(390),Y Screen(102+(X-36)*15) To X Screen(446),Y Screen(112+(X-36)*15)
Text X Screen(392),Y Screen(110+(X-36)*15),X$
Set Zone X,X Screen(390),Y Screen(102+(X-36)*15) To X Screen(446),Y Screen(112+(X-36)*15)
Next X
Screen To Front 1
Restore NH_RACE_DATA
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<45 Then Bell 50 Else Bell 10
For X=1 To M
X$=Str$(X) : Read X$
Next X
If M>0 and M<45 Then Ink 0,6
If M>0 and M<10 Then Cls 6,X Screen(130),Y Screen(102+M*15) To X Screen(186),Y Screen(112+M*15) : Text X Screen(132),Y Screen(110+M*15),X$
If M>9 and M<19 Then Cls 6,X Screen(195),Y Screen(102+(M-9)*15) To X Screen(251),Y Screen(112+(M-9)*15) : Text X Screen(197),Y Screen(110+(M-9)*15),X$
If M>18 and M<28 Then Cls 6,X Screen(260),Y Screen(102+(M-18)*15) To X Screen(316),Y Screen(112+(M-18)*15) : Text X Screen(262),Y Screen(110+(M-18)*15),X$
If M>27 and M<37 Then Cls 6,X Screen(325),Y Screen(102+(M-27)*15) To X Screen(381),Y Screen(112+(M-27)*15) : Text X Screen(327),Y Screen(110+(M-27)*15),X$
If M>36 and M<45 Then Cls 6,X Screen(390),Y Screen(102+(M-36)*15) To X Screen(446),Y Screen(112+(M-36)*15) : Text X Screen(392),Y Screen(110+(M-36)*15),X$
Wait 10 : MEETING$=X$
Exit If M>0 and M<45
Loop
Do
Reserve Zone : Reserve Zone 2
Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1 Then Screen 2 : Goto RACE_TIMES
If M=2 Then Goto NH_RACE_MEETINGS
Exit If M=1 or M=2
Loop
RACE_TIMES:
Ink 0,2 : Show On : Curs Off
For X=1 To 12
X$=Str$(X)
Cls 2,X Screen(125+X*24),Y Screen(148) To X Screen(139+X*24),Y Screen(165)
Text X Screen(125+X*24),Y Screen(160),X$
Next X
For X=1 To 12
Y=(X-1)*5 : Y$=Str$(Y)
Cls 2,X Screen(125+X*24),Y Screen(215) To X Screen(139+X*24),Y Screen(232)
Text X Screen(125+X*24),Y Screen(227),Y$
Next X
Screen To Front 2
Do
Reserve Zone : Reserve Zone 12
For X=1 To 12
Set Zone X,X Screen(125+X*24),Y Screen(148) To X Screen(139+X*24),Y Screen(165)
Next X
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<13 Then Bell 50 Else Bell 10
Ink 0,6
If M>0 and M<13
X$=Str$(M)
Cls 6,X Screen(125+M*24),Y Screen(148) To X Screen(139+M*24),Y Screen(165)
Text X Screen(125+M*24),Y Screen(160),X$
End If
HOUR$=X$
Exit If M>0 and M<13
Loop
Do
Wait 10
Reserve Zone : Reserve Zone 12
For X=1 To 12
Set Zone X,X Screen(125+X*24),Y Screen(215) To X Screen(139+X*24),Y Screen(232)
Next X
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<13 Then Bell 50 Else Bell 10
If M>0 and M<13
Y=(M-1)*5
X$=Str$(Y)
Cls 6,X Screen(125+M*24),Y Screen(215) To X Screen(139+M*24),Y Screen(232)
Text X Screen(125+M*24),Y Screen(227),X$
End If
If Y=0 Then X$="00"
If Y=5 Then X$="05"
TIME$=X$
Exit If M>0 and M<13
Loop
Do
Wait 10
Reserve Zone : Reserve Zone 2
Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
While Mouse Key<>1 : Wend : M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1 Then Screen To Front 3 : Screen 3 : Curs Pen 0 : Cls 5,X Screen(128),Y Screen(91) To X Screen(480),Y Screen(300) : Goto NAME_ENTRY
If M=2 Then Goto RACE_TIMES
Exit If M=1 or M=2
Loop
NAME_ENTRY:
Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
Hide On : Curs On : Clear Key : Pen 1 : Paper 5
Locate 1,7 : Print "ENTER THE NAMES OF THE HORSES YOU WANT TO RATE IN THE ";HOUR$;" :";TIME$;" AT ";MEETING$
Locate 1,8 : Print "PRESS RETURN ON EMPTY LINE TO FINISH"
NUMBER=0
Pen 0
Do
If NUMBER<20 Then Locate 1,10+NUMBER : Input "";NAME$(NUMBER)
If NUMBER>19 Then Locate 40,NUMBER-10 : Input "";NAME$(NUMBER)
NAME$(NUMBER)=Upper$(NAME$(NUMBER))
Exit If NAME$(NUMBER)=""
Inc NUMBER
Loop
NUMBEROFHORSES=NUMBER
Curs Off : Wait 10 : NUMBER=0 : Goto COMMENCE_RATING
COMMENCE_RATING:
Curs Off : Show On
Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
Locate 1,7 : Print "Ready to rate ";NAME$(NUMBER)
Locate 1,9 : Print "Enter the Weight ";NAME$(NUMBER);" is Set to Carry Today"
Pen 4 : Paper 6
Menu$(1)="WEIGHT "
Restore STONE_DATA
For WSS=1 To 6
WSS$=Str$(WSS)
Read WSS$
Menu$(1,WSS)=WSS$
Next WSS
WSP=1
Restore POUND_DATA
Repeat
WSP$=Str$(WSP)
Read WSP$
For WSS=1 To 6
Menu$(1,WSS,WSP)=WSP$
Next WSS
Inc WSP
Until WSP=15
Menu On
Do
S=Choice
WSSC=Choice(2)
WSPC=Choice(3)
Exit If S=-1
Loop
Restore STONE_DATA
For WSS=1 To WSSC
WSS$=Str$(WSS) : Read WSS$
Next WSS
Restore POUND_DATA
For WSP=1 To WSPC
WSP$=Str$(WSP) : Read WSP$
Next WSP
Pen 1 : Paper 5
Locate 1,11 : Print Space$(80)
Locate 1,11 : Print NAME$(NUMBER);" Is Set To Carry ";WSS$;WSP$;"Today"
Pen 0 : Locate 1,13 : Print "If This is Correct Press Left Mouse Button to Continue"
Locate 1,14 : Print "or Right Mouse Button to Re-select Weight."
While Mouse Key=0
Wend
If Mouse Key=1
Restore SEED_DATA_STONES
For WSS=1 To WSSC
WSS$=Str$(WSS) : Read WSS$
Next WSS
WSS#=Val(WSS$)
Restore SEED_DATA_POUNDS
For WSP=1 To WSPC
WSP$=Str$(WSP) : Read WSP$
Next WSP
WSP#=Val(WSP$)
ARATING#(NUMBER)=(WSS#*14+WSP#)*-1
BRATING#(NUMBER)=(WSS#*14+WSP#)*-1
Menu Del
Goto CHOOSE_ASSESSING_RACE
End If
If Mouse Key=2 Then Locate 1,13 : Print Space$(80) : Locate 1,14 : Print Space$(80) : Goto COMMENCE_RATING
Locate 1,13 : Print "You can rate ";NAME$(NUMBER);"'s last race, which is RACE A"
Locate 1,14 : Print "or you can rate ";NAME$(NUMBER);"'s previous race, which is RACE B"
Locate 1,16 : Print "Which race do you wish to rate (A or B) " : Locate 41,16
Do
X$=""
While X$=""
X$=Inkey$
Wend
Exit If Key State(32)=-1
Exit If Key State(53)=-1
Loop
If Scancode=32 Then RATING$="A" Else RATING$="B"
Screen 4 : Goto PRIZE_MONEY_1
PRIZE_MONEY_1:
Ink 0,5 : Curs Off : Show On
Set Text 2 :
Text X Screen(236),Y Screen(105),RATING$ : Ink 0,2
Do
Reserve Zone : Reserve Zone 22
Restore PRIZE_MONEY_DATA_1
For X=1 To 7
X$=Str$(X) : Read X$
Cls 2,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
Text X Screen(132),Y Screen(108+X*18),X$
Set Zone X,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
Next X
For X=8 To 14
X$=Str$(X) : Read X$
Cls 2,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
Text X Screen(241),Y Screen(108+(X-7)*18),X$
Set Zone X,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
Next X
For X=15 To 21
X$=Str$(X) : Read X$
Cls 2,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
Text X Screen(350),Y Screen(108+(X-14)*18),X$
Set Zone X,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
Next X
Set Zone 22,X Screen(362),Y Screen(260) To X Screen(432),Y Screen(279)
Screen To Front 4
Restore PRIZE_MONEY_DATA_1
While Mouse Key<>1
Wend
M=Mouse Zone
If M>0 and M<23 Then Bell 50 Else Bell 10
If M>0 and M<23 Then Ink 0,6
For X=1 To M
X$=Str$(X) : Read X$
Next X
If M>0 and M<8 Then Cls 6,X Screen(130),Y Screen(97+M*18) To X Screen(228),Y Screen(111+M*18) : Text X Screen(132),Y Screen(108+M*18),X$
If M>7 and M<15 Then Cls 6,X Screen(239),Y Screen(97+(M-7)*18) To X Screen(337),Y Screen(111+(M-7)*18) : Text X Screen(241),Y Screen(108+(M-7)*18),X$
If M>14 and M<22 Then Cls 6,X Screen(348),Y Screen(97+(M-14)*18) To X Screen(446),Y Screen(111+(M-14)*18) : Text X Screen(350),Y Screen(108+(M-14)*18),X$
If M=22 Then Goto PRIZE_MONEY_2
Restore MONEY_RATING_DATA_1
For Y=1 To M
Y$=Str$(Y)
Read Y$
Next Y : Wait 25
Exit If M>0 and M<23
Loop
Do
Reserve Zone : Reserve Zone 2
While Mouse Key<>1
Wend
Set Zone 1,X Screen(145),Y Screen(260) To X Screen(215),Y Screen(279)
Set Zone 2,X Screen(253),Y Screen(260) To X Screen(323),Y Screen(279)
M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1
VRATING#=Val(Y$)
If RATING$="A"
ARATING#(NUMBER)=ARATING#(NUMBER)+VRATING#
End If
If RATING$="B"
BRATING#(NUMBER)=BRATING#(NUMBER)+VRATING#
End If
Screen 3 : Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
Screen To Front 3 : Goto FINISHING_POSITION
End If
If M=2 Then Goto PRIZE_MONEY_1
Exit If M=1 or M=2
Loop
PRIZE_MONEY_2:
Cls 5,X Screen(128),Y Screen(114) To X Screen(448),Y Screen(238)
Ink 0,2 : Set Text 2
Do
Reserve Zone : Reserve Zone 20
Restore PRIZE_MONEY_DATA_2
For X=1 To 7
X$=Str$(X) : Read X$
Cls 2,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
Text X Screen(132),Y Screen(108+X*18),X$
Set Zone X,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
Next X
For X=8 To 14
X$=Str$(X) : Read X$
Cls 2,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
Text X Screen(241),Y Screen(108+(X-7)*18),X$
Set Zone X,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
Next X
For X=15 To 19
X$=Str$(X) : Read X$
Cls 2,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
Text X Screen(350),Y Screen(108+(X-14)*18),X$
Set Zone X,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
Next X
Set Zone 20,X Screen(362),Y Screen(260) To X Screen(432),Y Screen(279)
Restore PRIZE_MONEY_DATA_2
While Mouse Key<>1
Wend
M=Mouse Zone
If M>0 and M<21 Then Bell 50 Else Bell 10
If M>0 and M<21 Then Ink 0,6
For X=1 To M
X$=Str$(X) : Read X$
Next X
If M>0 and M<8 Then Cls 6,X Screen(130),Y Screen(97+M*18) To X Screen(228),Y Screen(111+M*18) : Text X Screen(132),Y Screen(108+M*18),X$
If M>7 and M<15 Then Cls 6,X Screen(239),Y Screen(97+(M-7)*18) To X Screen(337),Y Screen(111+(M-7)*18) : Text X Screen(241),Y Screen(108+(M-7)*18),X$
If M>14 and M<20 Then Cls 6,X Screen(348),Y Screen(97+(M-14)*18) To X Screen(446),Y Screen(111+(M-14)*18) : Text X Screen(350),Y Screen(108+(M-14)*18),X$
If M=20 Then Goto PRIZE_MONEY_1
Restore MONEY_RATING_DATA_2
For Y=1 To M
Y$=Str$(Y) : Read Y$
Next Y
Wait 25
Exit If M>0 and M<21
Loop
Do
Reserve Zone : Reserve Zone 2
Set Zone 1,X Screen(145),Y Screen(260) To X Screen(215),Y Screen(279)
Set Zone 2,X Screen(253),Y Screen(260) To X Screen(323),Y Screen(279)
While Mouse Key<>1
Wend
M=Mouse Zone
If M>0 and M<3 Then Bell 50 Else Bell 10
If M=1
VRATING#=Val(Y$)
If RATING$="A"
ARATING#(NUMBER)=ARATING#(NUMBER)+VRATING#
End If
If RATING$="B"
BRATING#(NUMBER)=BRATING#(NUMBER)+VRATING#
End If
Screen 3 : Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
Screen To Front 3 : Goto FINISHING_POSITION
End If
If M=2 Then Goto PRIZE_MONEY_2
Exit If M=1 or M=2
Loop
FINISHING_POSITION:
Curs Off : Show On
Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
Locate 1,7 : Print "Enter Finishing Position of ";NAME$(NUMBER);" in Race ";RATING$
Data "0","1","2","3","4","5","6","7","8","9","10","11","12","13"
PRIZE_MONEY_DATA_1:
Data "Under �400","�400 to �499","�500 to �599","�600 to �699","�700 to �899","�900 to �999","�1,000 to �1,099"
Data "�1,100 to �1,299","�1,300 to �1,499","�1,500 to �1,799","�1,800 to �1,899","�1,900 to �2,099","�2,100 to �2,399","�2,400 to �2,699"
Data "�2,700 to �2,999","�3,000 to �3,499","�3,500 to �3,999","�4,000 to �4,499","�4,500 to �4,999","�5,000 to �5,499","�5,500 to �5,999",""
MONEY_RATING_DATA_1:
Data "30","34","37","39","42","47","49","51","53","55","58","60","62","65","67","70","71","72","73","74","75",""
PRIZE_MONEY_DATA_2:
Data "�6,000 to �6,499","�6,500 to �6,999","�7,000 to �7,499","�7,500 to �7,999","�8,000 to �8,499","�8,500 to �8,999","�9,000 to �9,749"
Data "�9,750 to �10,999","�11,000 to �11,999","�12,000 to �12,999","�13,000 to �14,999","�15,000 to �17,499","�17,500 to �19,999","�20,000 to �24,999"
Data "�25,000 to �32,499","�32,500 to �49,999","�50,000 to �74,999","�75,000 to �99,999","�100,000 and Over",""
MONEY_RATING_DATA_2:
Data "76","77","78","79","80","81","82","84","85","86","87","89","91","92","93","95","97","99","100",""
FINISH_DATA:
Data "First ","Second ","Third ","Fourth ","Fifth ","Sixth "
FLAT_DISTANCE_DATA:
Data "5F ","6F ","7F ","1M ","1M 1F","1M 2F","1M 3F"
Data "1M 4F","1M 5F","1M 6F","1m 7F","2M ","2M 1F","2M 2F"
Data "2M 3F","2M 4F","2M 5F","2M 6F","","",""
NH_DISTANCE_DATA:
Data "2M ","2M 1F","2M 2F","2M 3F","2M 4F","2M 5F","2M 6F"
Data "2M 7F","3M ","3M 1F","3M 2F","3M 3F","3M 4F","3M 5F"
Data "3M 6F","3M 7F","4M ","4M 1F","4M 2F","4M 3F","4M 4F"
FLAT_DISTANCE_VALUES_DATA:
Data "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22"
NH_DISTANCE_VALUES_DATA:
Data "16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36"